home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / asm / chipasms.lha / rev3pack-final / modify.asm < prev    next >
Assembly Source File  |  1996-09-30  |  10KB  |  235 lines
  1. *****************************************************************************
  2. *                                                                           *
  3. *    Modify.asm                                                          *
  4. *    ~~~~~~~~~~                                                          *
  5. *    Description : The Modifiable variables used in this Pack !          *    
  6. *                                                                *
  7. *    Code : Dennis Predovnik (SuLtAn/DVS)                                *
  8. *    Date : 22/4/96                                                      *
  9. *    Release Version : 1.0                                               *
  10. *                                                                           *
  11. *****************************************************************************
  12.  
  13.     section        modify_DaTa,code
  14.  
  15. ;----------------------------- Scroll Text ----------------------------------
  16.  
  17. scrollMSG:
  18.     dc.b "Devious bursts onto the Australian Scene again with a NEW production " 
  19.     dc.b "entitled Blips n Beeps AGA coded by SuLtaN !    SultaN at tha keyz, "
  20.     dc.b "This has been a fun "
  21.     dc.b "project to code and look forward to more releases under tha "
  22.     dc.b "Kool Devious label by me and others....     Instructions are as follows: Up,Down "
  23.     dc.b "Keyz move cursor, Return Selectz music, Left mouse toggles module "
  24.     dc.b "info of module which has cursor on, left again to go back to "
  25.     dc.b "main menu, Right mouse Exitz...      This code waz ready months ago "  
  26.     dc.b "but for sum reason or another it waz delayed....     "
  27.     dc.b "Ok to get in touch with me then leave me a "
  28.     dc.b "message on Psyche's board Terrafirma !!  For coding chat or anything "  
  29.     dc.b "else remotely interesting.....  you can also contact me by mail "
  30.     dc.b "to the address:  Dennis Predovnik  76 William St. Herne Hill 6056, Western Australia !! "
  31.     dc.b "or on IRC #Amiga, #Amielite as Sultn\DVS       "
  32.     dc.b "Oh yeah finally Hi's fly to the Rave Network Overscan (RNO) crew "
  33.     dc.b "who I did join for about a week then joined the Devious Posse..    "
  34.     dc.b "Hi TBC..  hope you like my first prod !! Ok enuff shit from me " 
  35.     dc.b "and onto the other Devious members..            "  
  36.     dc.b "Analyze at the keys now... Well what to say? This is Sultans first "
  37.     dc.b "pack that he has coded entirely on his own and I think its quite "
  38.     dc.b "impressive indeed, but enough sucking up to him for now (I dont know "
  39.     dc.b "what I am sucking up for, maybe to get his sister!). Devious Dezigns "
  40.     dc.b "disk mag VISION is almost due out and if your quick and willing, it "
  41.     dc.b "isnt too late to send in some articles, clipart, modules, all is "
  42.     dc.b "welcome. You will find the addresses somewhere in this production. "
  43.     dc.b "Greetings to all.        "
  44.     dc.b "Well,  now it is the Heavyweight at the keys..  Well.  what do I have to "
  45.     dc.b "say?  Not very much actually..  Oh, only just watch out for my cool Devious "
  46.     dc.b "Tools series..  Greets to all the people I know, and also to the ones that "
  47.     dc.b "I don't know.. Later..              Credits go like this...   "
  48.         dc.b "Code and Dezign: SuLtAn     GfX:"
  49.         dc.b " Menu logo by Dvize   Other Gfx by Psyche      "
  50.         dc.b "         Scroll Restarts                              ",EOT
  51.     even
  52.     
  53. scrollPtr
  54.     dc.l    scrollMSG
  55.  
  56. ;--------------------------- End Scroll Text --------------------------------
  57.  
  58. ;----------------------- Menu Text ------------------------------------
  59. ;--------->>>  Note :  Make Sure 6 (Six) Entries ONLY !!!!  <<<--------
  60. ;--------->>>          X is in Bytes (8 Pixels = 1 Byte ) ! <<<--------
  61. ;--------->>>          Y is in Linez !!                     <<<--------
  62. ;----------------------------------------------------------------------
  63.  
  64. menu1         ; X   Y
  65.     dc.b    16,60,  "12345678",EOT
  66. menu2
  67.     dc.b    14,78,  "1234567890",EOT
  68. menu3
  69.     dc.b    16,96,  "MODULE 3",EOT
  70. menu4
  71.     dc.b    16,114, "MODULE 4",EOT
  72. menu5
  73.     dc.b    16,132, "MODULE 5",EOT
  74. menu6
  75.         dc.b    16,150, "MODULE 6",EOT
  76.     even
  77.  
  78. ;---------------------- End Menu Text --------------------------------
  79.  
  80. ;--------------------- Module Info Text ------------------------------
  81. ;-------->>> Note : Same as ABOVE except for the following <<<--------
  82. ;-------->>>        Can be long as want except make sure   <<<--------
  83. ;-------->>>        EOB is at the end of your Module info. <<<--------
  84. ;-------->>>        Make sure DUMMYSZ is set to correct    <<<--------
  85. ;-------->>>        size as the others above it.. Fill it  <<<--------
  86. ;-------->>>        with "*"'s to achieve this !!          <<<--------
  87. ;---------------------------------------------------------------------
  88.  
  89.  
  90. Info0         ; X  Y
  91.     dc.b    11,68, "   Module Name   ",EOT
  92.     dc.b    11,78, "   -----------   ",EOT
  93.     dc.b    11,88, "                 ",EOT
  94.     dc.b    11,98, " Author: Micheal ",EOT
  95.     dc.b    11,108,"         Fisher  ",EOT
  96.     dc.b    11,118,"                 ",EOT
  97.     dc.b    11,128," Format: Tracker ",EOT
  98.     dc.b    11,138," Date  : 14/4/96 ",EOT,EOB
  99.  
  100. Info1
  101.     dc.b    11,68, "   Module Name   ",EOT
  102.     dc.b    11,78, "   -----------   ",EOT
  103.     dc.b    11,88, "                 ",EOT
  104.     dc.b    11,98, " Author: Bennet  ",EOT
  105.     dc.b    11,108,"         Fisher  ",EOT
  106.     dc.b    11,118,"                 ",EOT
  107.     dc.b    11,128," Format: Tracker ",EOT
  108.     dc.b    11,138," Date  : 15/4/96 ",EOT,EOB
  109.  
  110. Info2
  111.     dc.b    11,68, "   Module Name   ",EOT
  112.     dc.b    11,78, "   -----------   ",EOT
  113.     dc.b    11,88, "                 ",EOT
  114.     dc.b    11,98, " Author: Aldo    ",EOT
  115.     dc.b    11,108,"         Fisher  ",EOT
  116.     dc.b    11,118,"                 ",EOT
  117.     dc.b    11,128," Format: Tracker ",EOT
  118.     dc.b    11,138," Date  : 16/4/96 ",EOT,EOB
  119.     
  120. Info3
  121.     dc.b    11,68, "   Module Name   ",EOT
  122.     dc.b    11,78, "   -----------   ",EOT
  123.     dc.b    11,88, "                 ",EOT
  124.     dc.b    11,98, " Author: Dipstick",EOT
  125.     dc.b    11,108,"         Fisher  ",EOT
  126.     dc.b    11,118,"                 ",EOT
  127.     dc.b    11,128," Format: Tracker ",EOT
  128.     dc.b    11,138," Date  : 17/4/96 ",EOT,EOB
  129.     
  130. Info4
  131.     dc.b    11,68, "   Module Name   ",EOT
  132.     dc.b    11,78, "   -----------   ",EOT
  133.     dc.b    11,88, "                 ",EOT
  134.     dc.b    11,98, " Author: Darren  ",EOT
  135.     dc.b    11,108,"         Fisher  ",EOT
  136.     dc.b    11,118,"                 ",EOT
  137.     dc.b    11,128," Format: Tracker ",EOT
  138.     dc.b    11,138," Date  : 18/4/96 ",EOT,EOB
  139.  
  140. Info5
  141.     dc.b    11,68, "   Module Name   ",EOT
  142.     dc.b    11,78, "   -----------   ",EOT
  143.     dc.b    11,88, "                 ",EOT
  144.     dc.b    11,98, " Author: Dopey   ",EOT
  145.     dc.b    11,108,"         Fisher  ",EOT
  146.     dc.b    11,118,"                 ",EOT
  147.     dc.b    11,128," Format: Tracker ",EOT
  148.     dc.b    11,138," Date  : 19/4/96 ",EOT,EOB
  149.     even
  150.  
  151. DUMMYSZ dc.b       0,0,"*****************",EOT  ; This has to be same length
  152. INFSIZE equ  *-DUMMYSZ                          ; as Linez above it.. Want
  153.     even                                    ; more room make this bigger
  154.                                                 ; and the linez above bigger
  155.                                                 ; also, but make sure it's
  156.                                                 ; equal length with this !!
  157. ;--------------------- End Module Info Text --------------------------
  158.  
  159. ;-------------------------- FADE TIME --------------------------------
  160. ;---->>>  Due to popular demand we have a fade DELAY           <<<---- 
  161. ;---->>>  Measured in Vertical Blanks.. ie 50 VB's = 1 Sec     <<<----
  162. ;---------------------------------------------------------------------
  163.  
  164. PDELAY    dc.w    5                               ; Pic Fade Delay
  165. CDELAY    dc.w    3                               ; Cursor Fade Delay
  166. TDELAY  dc.w    3                ; Text Fade Delay
  167.  
  168. ;------------------------ END FADE TIME ------------------------------
  169.  
  170. ;--------------------- Cursor Variables ------------------------------
  171.  
  172. ; Cursor Left Variables
  173. CURL_X       = 125       ; Left X         <<-- You can change this !!
  174. CURL_Y     = 101       ; Left Y         <<-- IF Nessecary !!
  175. CURL_YSTOP = CURL_Y+12 ; Left Y Stop    <<-- DON'T CHANGE !!
  176.  
  177. ; Cursor Right Variables
  178. CURR_X       = 162       ; Right X        <<-- You can change this !!
  179. CURR_Y     = 101       ; Right Y        <<-- IF Nessecary!!
  180. CURR_YSTOP = CURR_Y+12 ; Right Y Stop   <<-- DON'T CHANGE !!
  181.  
  182. LINEHEIGHT = 18        ; Line Height !  <<-- IF Changed Text Y, Experiment !
  183.  
  184. ;--------------------- EXE Variable ----------------------------------
  185. ;---->>> If your a smart ass and want for some reason to have <<<-----
  186. ;---->>> the cursor start on a different line then you must   <<<-----
  187. ;---->>> also change this... say you want the cursor to start <<<-----
  188. ;---->>> on line 1 instead of line 0 then change it from 0 to <<<-----
  189. ;---->>> 1, or if you want line 2 then change it to 2 etc..   <<<-----
  190. ;---->>> BUT don't forget to change the cursor variables !!!  <<<-----
  191. ;---->>> ALSO change the bit of assembler code to correspond  <<<-----
  192. ;---->>> with the initial music played at the start...        <<<-----
  193. ;---->>> IE say the you want MOD3 to play at the start then   <<<-----
  194. ;---->>> replace "lea.l Mod0,a0" with "lea.l MOD2,a0"...      <<<-----
  195. ;---->>> REMEMBER I start counting from Zero (0) !!!          <<<-----
  196. ;---------------------------------------------------------------------
  197.  
  198. exeVar    dc.w    0
  199.  
  200. initINIT:
  201.     lea.l    Mod0,a0
  202.     rts
  203.  
  204. ;--------------------- End Cursor Variables --------------------------
  205.  
  206. ;--------------------- Music (Pro-tracker format)---------------------
  207. ;--------------->>> IMPORTANT: Make Sure Un-Crunched <<<--------------
  208. ;---------------------------------------------------------------------
  209.  
  210.     section    ChiPData,code_c
  211. Mod0
  212.     incbin    "MODS/mod.1"
  213. Mod1
  214.     incbin    "MODS/mod.2"
  215. Mod2
  216.     incbin    "MODS/mod.3"
  217. Mod3
  218.     incbin    "MODS/mod.4"
  219. Mod4
  220.     incbin    "MODS/mod.5"
  221. Mod5
  222.     incbin    "MODS/mod.6"
  223.  
  224. ;---------------------- End Music data -------------------------------
  225.  
  226. ;------------------------- 8*8 Font ----------------------------------
  227. ;----------->>> IMPORTANT : Make sure it's a 8*8 font only <<<--------
  228. ;----------->>>             in RAW format...               <<<--------
  229. ;---------------------------------------------------------------------
  230.  
  231. FONT     incbin "GFX/Font.raw"
  232.  
  233. ;----------------------- End 8*8 Font -------------------------------- 
  234.  
  235.